home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 30 / CD-ROM 30 / CD-ROM 30.iso / aplicat / QuarkX / QXDemo.exe / 0 / PSHD / 1023 < prev    next >
Encoding:
Text File  |  1997-08-21  |  226 b   |  4 lines
  1. /setdg{11 array astore[0 2 index{dup 3 -1 roll sub exch}forall pop 11 -1 roll]
  2.  [3 1 roll{1 4 -1 roll sub 10 mul dup cvi dup dup 4 -2 roll sub 4 -1 roll
  3.  3 -1 roll get mul 3 1 roll get add 1 exch sub}/exec load]cvx st1}def
  4.